object fXmlAns: TfXmlAns
  Left = 189
  Top = 126
  Width = 698
  Height = 486
  BorderIcons = [biSystemMenu]
  Caption = 'Gerar Guias'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDesktopCenter
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 14
    Top = 95
    Width = 41
    Height = 13
    Caption = 'N'#186' GUIA'
  end
  object Label2: TLabel
    Left = 146
    Top = 95
    Width = 65
    Height = 13
    Caption = 'Data Emiss'#227'o'
  end
  object Label3: TLabel
    Left = 32
    Top = 412
    Width = 131
    Height = 13
    Caption = 'Nome Arquivo a ser Gerado'
    Visible = False
  end
  object Label4: TLabel
    Left = 272
    Top = 413
    Width = 118
    Height = 13
    Caption = 'Caminho para o arquivo :'
    Visible = False
  end
  object Label5: TLabel
    Left = 235
    Top = 436
    Width = 18
    Height = 13
    Caption = '.xml'
    Visible = False
  end
  object Label7: TLabel
    Left = 15
    Top = 49
    Width = 98
    Height = 13
    Caption = 'Nome do Contratado'
  end
  object Label8: TLabel
    Left = 354
    Top = 50
    Width = 141
    Height = 13
    Caption = 'Nome Profissional Executante'
  end
  object Label6: TLabel
    Left = 16
    Top = 8
    Width = 61
    Height = 13
    Caption = 'Tipo de Guia'
  end
  object Label9: TLabel
    Left = 280
    Top = 96
    Width = 106
    Height = 13
    Caption = 'Data data Autoriza'#231#227'o'
  end
  object Label10: TLabel
    Left = 413
    Top = 95
    Width = 31
    Height = 13
    Caption = 'Senha'
  end
  object Label11: TLabel
    Left = 546
    Top = 95
    Width = 101
    Height = 13
    Caption = 'Data Validade Senha'
  end
  object Label12: TLabel
    Left = 18
    Top = 221
    Width = 71
    Height = 16
    Caption = 'Benefici'#225'rio'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 14
    Top = 137
    Width = 91
    Height = 13
    Caption = 'Nome do Prestador'
  end
  object Label14: TLabel
    Left = 312
    Top = 185
    Width = 27
    Height = 13
    Caption = 'CNPJ'
    Visible = False
  end
  object Label15: TLabel
    Left = 47
    Top = 192
    Width = 160
    Height = 13
    Caption = 'E-Eletiva U-Urg'#234'ncia/Emerg'#234'ncia'
  end
  object Label16: TLabel
    Left = 47
    Top = 179
    Width = 104
    Height = 13
    Caption = 'Car'#225'ter da Solicita'#231#227'o'
  end
  object Label17: TLabel
    Left = 344
    Top = 136
    Width = 162
    Height = 13
    Caption = 'Nome Profissional / Complementar'
  end
  object BitBtn1: TBitBtn
    Left = 176
    Top = 368
    Width = 108
    Height = 39
    Caption = 'F2-Gerar Guia'
    TabOrder = 12
    OnClick = BitBtn1Click
    Glyph.Data = {
      1E060000424D1E06000000000000360000002800000018000000150000000100
      180000000000E8050000CA0E0000C30E00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302F60302F7F7F
      7FCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302FFF9790
      FF979000FFFF60302F60302FCF67607F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302FFF
      9790FFC8CFFFC8CFFFC8CF00FFFFFFC8CF60302FCF6760CF6760CF67607F7F7F
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F6030
      2FFF9790FFC8CF00FFFFCFFFFFFFC8CFFFC8CFCFFFFFFFC8CFCF676060302FCF
      6760CF6760CF67607F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      7F7F7FCF6760FFC8CF00FFFFFFC8CFFFC8CF7F7F7F7F7F7FCFFFFFFFC8CFCFFF
      FFFFC8CF60302FFF0000CF6760CF6760CF67607F7F7F7F7F7FBFBFBFBFBFBFBF
      BFBFBFBFBF7F7F7FFF9790FFC8CF00FFFFCFFFFF7F7F7F7F7F7FFFC8CF00FFFF
      FFC8CF00FFFFFFC8CFCFFFFFCF67600000FFFF0000FF00007F7F7F7F7F7F7F7F
      7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00FFFFFFC8CFFFC8CF7F7F7FFFC8CFCF
      FFFFFFC8CF7F7F7F7F7F7FCFFFFFCFFFFFFFC8CFCFFFFF60302F0000FFFF0000
      CF67607F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFFFFF
      FFFFFFFF00FFFF7F7F7F7F7F7FCFFFFFCFFFFFCFFFFFFFC8CFCFFFFFFFC8CFCF
      6760FF97900000FFFF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFFFC8CFFFFFFFFFFFFF1F201F7F7F7FCFFFFFCFFFFF7F7F7F7F7F7FCFFF
      FFFFC8CFCFFFFFFFC8CF60302FFFC8CF0000FFFF0000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFFFC8CFCF6760CF67601F201F7F7F7F7F7F7F
      CFFFFFCFFFFFFFC8CFCFFFFFFFC8CFCFFFFFCF6760CFFFFFFF97900000FFFF00
      00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FFC8CFFF9790CF
      67601F201F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFC8CFFFFFFF60302F
      CFFFFFFF97900000FFCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FFC8
      CFFFC8CFFF9790FF9790CF67601F201F7F7F7FCFFFFFFFFFFFCFFFFFFFFFFFCF
      FFFFFFC8CFCF6760FFFFFFFFFFFFFF00000000FFCF6760BFBFBFBFBFBFBFBFBF
      CF6760FFC8CFFFC8CFFFC8CFFF9790FF9790FF9790CF67601F201F7F7F7FFFFF
      FFFFFFFFFFFFFFFFC8CFCFFFFFFFC8CFFFFFFFFFFFFFFFFFFFCF6760CF6760BF
      BFBFBFBFBFCF6760FFC8CFFFFFFFFFC8CFFFC8CFFF9790CF6760CF6760CF6760
      CF67601F201F7F7F7FFFFFFF3F3700CFFFFFCF6760FFFFFF0000FF0000FF0000
      FFCF6760BFBFBFBFBFBFBFBFBF60302F60302F60302FFFC8CFFFC8CFFF9790CF
      67601F201F1F201F1F201F1F201F1F201FFFFFFFFFFFFFFFC8CFFFFFFFFFFFFF
      FFFFFFFFC8CFCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFC8
      CFFFC8CFFF9790CF67601F201F60302F60302F60302F60302FFFC8CFFFC8CFFF
      FFFFFF0000FF0000CF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      FF9790FFC8CFFFC8CFFFFFFFFF9790CF67601F201F60302F0000FF0000FFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFCF6760FFFFFFFFFFFFFFC8CFFF9790CF67601F201F60302F
      BFBFBFFFFFFFFFFFFFFFFFFF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FF9790FF9790FF9790FF9790CF
      67601F201F60302FBFBFBFBFBFBFFF0000FF0000BFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760CF6760CF67
      60CF6760CF67601F201F60302F7F7F7FFFC8CFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBF}
  end
  object Edit2: TEdit
    Left = 14
    Top = 111
    Width = 121
    Height = 21
    Color = clInfoBk
    ReadOnly = True
    TabOrder = 20
    OnKeyPress = FormKeyPress
  end
  object Edit3: TEdit
    Left = 272
    Top = 429
    Width = 345
    Height = 21
    TabOrder = 15
    Text = 'C:\Home\GuiasEnviadas\'
    Visible = False
  end
  object BitBtn2: TBitBtn
    Left = 617
    Top = 428
    Width = 30
    Height = 22
    Caption = '...'
    TabOrder = 16
    Visible = False
    OnClick = BitBtn2Click
  end
  object Edit4: TEdit
    Left = 32
    Top = 428
    Width = 201
    Height = 21
    TabOrder = 17
    Visible = False
  end
  object BitBtn3: TBitBtn
    Left = 300
    Top = 368
    Width = 102
    Height = 39
    Caption = 'F4-Imprimir'
    TabOrder = 13
    OnClick = BitBtn3Click
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00101
      01000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000070707BFBF
      BF9898989E9E9E000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000050505D0D0D0B4B4B4B8B8
      B89F9F9FA2A2A29B9B9B989898020202000000C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0060606020202DBDBDBC8C8C8CDCDCDC5C5C58585
      85000000000000A4A4A4A2A2A2929292868686050505000000C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0050505000000E3E3E3D8D8D8D5D5D5BCBCBC888888888888BEBE
      BE9B9B9BA8A8A80000000101019B9B9B9696969C9C9C808080000000010101C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      030303000000EDEDEDE1E1E1E3E3E3C5C5C5848484898989BFBFBF979797DBDB
      DBA0A0A094949498989895959502020200000093939398989889898978787800
      0000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000
      FAFAFAF2F2F2EBEBEBC1C1C1838383878787CECECECCCCCCC4C4C49A9A9AD4D4
      D4A3A3A398989896969695959597979788888800000002020285858584848489
      8989777777060606000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0989898
      F5F5F5BFBFBF818181848484DBDBDBCBCBCBCBCBCBCFCFCFB6B6B6969696DDDD
      DD9F9F9F9D9D9D9D9D9D9999998585859797978282829C9C9C00000003030384
      84847676767474747A7A7A090909C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09B9B9B
      808080888888DCDCDCD9D9D9CCCCCCCBCBCBD0D0D0CACACACFCFCF9D9D9DD3D3
      D3939393A2A2A29696969898989292928585859797978B8B8B82828277777702
      0202030303757575777777000000C0C0C0C0C0C0C0C0C0C0C0C0969696939393
      EBEBEB9B9B9BD4D4D4D3D3D3DCDCDCD8D8D8C9C9C9CBCBCBCACACA999999D5D5
      D5A0A0A0959595A1A1A19696968484849B9B9B8383838080807E7E7E86868672
      7272777777000000010101000000C0C0C0C0C0C0C0C0C0C0C0C0999999F8F8F8
      EDEDEDA0A0A0D2D2D2D8D8D8D3D3D3D6D6D6D6D6D6CACACAD4D4D4999999F5F5
      F59C9C9CA6A6A69393938282829898988888888787877878788787877373738E
      8E8E797979767676737373020202010101C0C0C0C0C0C0C0C0C08F8F8FFFFFFF
      E7E7E7929292E6E6E6D5D5D5D9D9D9D9D9D9CCCCCCCFCFCFF2F2F29A9A9A8A8A
      8ABCBCBCB9B9B98787879A9A9A7F7F7F86868681818190909074747488888871
      71716D6D6D7F7F7F7676765F5F5F040404C0C0C0C0C0C0C0C0C09E9E9EFAFAFA
      ECECEC949494D3D3D3DBDBDBCECECECACACAF8F8F8FBFBFBBCBCBCC1C1C1C8C8
      C87F7F7F838383C2C2C2C4C4C48383838C8C8C8A8A8A6B6B6B8B8B8B79797978
      78787B7B7B7575756A6A6A6C6C6C000000C0C0C0C0C0C0C0C0C0999796F6F6F6
      E7E6E89FA1A2C5CAC8CAD2CBF0F8F1F3FAF7B9BCC4BCBEC8C8C9D3CBCED3C9CB
      CBC8C9C7C7C4C6838284818286C1C3C4BEBDBF77777789878777787675767475
      7777767676666567727173686567050303C0C0C0C0C0C0C0C0C09C9994FBF9F8
      E8E7F0979BA0EDFDF2E8FFE9B0CAB3AEC6BCBFCADE3B405F3A3E5BC3C7DAD3D7
      D87576728B858AC1BEC7BDBFC96D737A848589C5C3C3B4B0AF7877737B7F7A6F
      747263656676777B6763686660650E090BC0C0C0C0C0C0C0C0C09C9994FCFAFA
      F1F0FA8B9196788A7DB2CCB4B6D5BA7E998F616F85B8C0E59CA0C37B7E93767A
      7BD9DAD6D2CCD1C0B8C2BEBDC6BDBDC3020001868182797672C0BFBBB9BDB877
      7C7A797D7E6364686D676C6C6769040000C0C0C0C0C0C0C0C0C09B97969D9B9B
      F1F1F7DFE4E7B4C2B77A8D7C6C8270AEC3BBA3B0C079809B787C95DADDECD9DB
      DCD1D0CCD1CCCBD8CDCF0F03030B0000B7AFAFBAB6B5060705838886808583BB
      C0BFAAACAC666666666464686666050302C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      9E9D9F909292F4FCF5CFDDD2B9C8C07684827D868F626A77C0C3D1DADBE5D5D4
      D6DFDCD80B07020D0100C8AEA8FDE3DDF1E1DBB7B2AF000100BCC2C1C1C7C67F
      8483898B8BC0C1BFB7B5B4676662020000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0969A958C918FF8FEFDD2DADAB9BEBF838889777B7C8281830200
      01040000B2B0A6EDDDD0FFDED0572D20442B21E6DCD5CBCCCA000100787D7EBC
      C1C0ACADAB8B8A86848680C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0939399999A9EF7FBF6D6DBD2B6B7B3918F8E7671
      72BCB8B7EFEDE34030205C311EFFE4D2FFE8D9F6E7DEE5E2DD0002007D828182
      84848C8D8BC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09A9A949A9C90FFFFF8D5D2CDC7C2
      C3888384E1DFD7F7E8D8FFDCC7FFFBE54D2917472F23F1E6DEC0BBB8060403C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09A998F9F9C97FAF5
      F78A8789E9E6E2F0E4D85E3925532710FFF0DEFFEADBFFECE1FDF0E8C8BFBB05
      0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09D9A
      9C9C9B9F848183F7ECE8FFECDCFFE9D5FFF7E55332224B2E20FFEEE3F5E5DECC
      C3C0050303C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C089878DF0EAEBFFF7EB4C33234B2D1CFFF3E3FFF8EAFFF4E6FFF1E9FD
      F2EEC1BFBF000006C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0878388FFFEF7FFFAEEFFF5E9FFFFF2FFEFE14E2E21463129F9
      EEEAF6F4F4B6B6BC04060E000006C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C083827EFCF6EFFFFBF2452C22492B20FFFAF0FFF8F1FF
      F6F2F9F7F7EEEFF38083887F8287C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C08B8884FFF6F4FFF9F6FFF4EFFFFDF8FFF4EEFF
      F9F4878584888A8AC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0847F80FDF7F8FFFAFAFAF2F29089868D
      8885C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07C7F847F828784878BC0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  end
  object BitBtn4: TBitBtn
    Left = 325
    Top = 61
    Width = 24
    Height = 25
    Caption = '...'
    TabOrder = 2
    OnClick = BitBtn4Click
    OnKeyPress = FormKeyPress
  end
  object Edit6: TEdit
    Left = 15
    Top = 65
    Width = 306
    Height = 21
    ReadOnly = True
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object combobox1: TComboBox
    Left = 354
    Top = 65
    Width = 313
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnKeyPress = FormKeyPress
  end
  object ComboBox2: TComboBox
    Left = 15
    Top = 23
    Width = 177
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    OnChange = ComboBox2Change
    OnKeyPress = FormKeyPress
    Items.Strings = (
      'GUIA CONSULTA'
      'SOLICITA'#199#195'O INTERNA'#199#195'O'
      'SOLICITA'#199#195'O DE SERVI'#199'OS')
  end
  object Edit5: TEdit
    Left = 413
    Top = 111
    Width = 121
    Height = 21
    Color = clInfoBk
    ReadOnly = True
    TabOrder = 21
    OnKeyPress = FormKeyPress
  end
  object BitBtn5: TBitBtn
    Left = 324
    Top = 149
    Width = 24
    Height = 25
    Caption = '...'
    TabOrder = 8
    OnClick = BitBtn5Click
    OnKeyPress = FormKeyPress
  end
  object Edit7: TEdit
    Left = 15
    Top = 153
    Width = 304
    Height = 21
    ReadOnly = True
    TabOrder = 7
    OnKeyPress = FormKeyPress
  end
  object Edit8: TEdit
    Left = 344
    Top = 183
    Width = 201
    Height = 21
    ReadOnly = True
    TabOrder = 18
  end
  object Edit9: TEdit
    Left = 17
    Top = 182
    Width = 23
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 10
    Text = 'E'
    OnKeyPress = FormKeyPress
  end
  object ComboBox3: TComboBox
    Left = 355
    Top = 152
    Width = 312
    Height = 21
    ItemHeight = 13
    TabOrder = 9
    OnKeyPress = FormKeyPress
  end
  object BitBtn6: TBitBtn
    Left = 416
    Top = 367
    Width = 89
    Height = 39
    Caption = 'F9-Sair'
    TabOrder = 14
    OnClick = BitBtn6Click
    Glyph.Data = {
      E60C0000424DE60C0000000000003600000028000000250000001D0000000100
      180000000000B00C0000120B0000120B00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF9F60606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06060A06060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F60
      60A06060B06060C06060CF6060B060606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F60609F6060AF6F6FC06F6FCF6F6FCF6F6FCF606FCF606FB06060
      6F3030AF60609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060D06F70D06F70D06F
      6FD06F6FD06F6FD06F6FD06F6FB0606F6F3030FFA0A0FFAFAFFFAFB0FFB0B0FF
      BFBFFFC0C0FFC0C0FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7070DF7070D07070D07070D06F70D06F6FD06F6FB06F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060DF7070DF7070DF70
      70DF7070DF7070D07070D07070BF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7F7FDF7F7FDF7F7FDF707FDF7070DF7070DF7070BF6F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060E07F7FE07F7FE07F
      7FE07F7FDF7F7FDF7F7FDF707FBF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060E08080E07F80E07F7FE07F7FE07F7FE07F7FE07F7FBF7070
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060EF8080EF8080E080
      80E08080E0808FEFA0A0E07F7FBF70706F303070BF7030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060EF808FEF8080EF8080EF8080F0BFBFFFFFFFF0B0B0C07070
      6F3030F0DFC0C0F0BF7FDF907FDF9060D08060D08060D080FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F08F8FEF8F8FEF8F
      8FEF808FF0BFBFFFFFFFF0AFAFC070706F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFE0FFCFE0FFCFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060F08F8FF08F8FF08F8FF08F8FEF8F8FF0A0A0EF808FC07070
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F09090F09090F08F
      90F08F8FF08F8FF08F8FF08F8FC07F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9090FF9090F09090F09090F08F90F08F8FC07F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF909FFF9090FF90
      90FF9090FF9090FF9090F09090CF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9F9FFF9F9FFF9F9FFF909FFF909FFF9090FF9090CF7F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF9F9FFF9F9FFF9F
      9FFF9F9FFF9F9FFF9F9FFF9F9FCF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9F9FFF9F9FFF9F9FFF9F9FFF9F9FFF9F9FCF8080
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060C07F7FDF8F
      8FFF9F9FFF9F9FFF9F9FFF9F9FCF80806F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06F6FC07F7FF09090FF9F9FCF8080
      6F3030A060609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBF9F60609F6060AF7070B070706F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00}
  end
  object Edit1: TJvDBSearchComboBox
    Left = 94
    Top = 219
    Width = 569
    Height = 24
    DataField = 'NOMECLIENTE'
    DataSource = dsBuscaGuia
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 11
    OnKeyPress = FormKeyPress
  end
  object JvDBGrid1: TJvDBGrid
    Left = 16
    Top = 248
    Width = 649
    Height = 105
    DataSource = dsBuscaGuia
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 19
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    AlternateRowColor = clInfoBk
    AutoSizeColumns = True
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 17
    Columns = <
      item
        Expanded = False
        FieldName = 'CODCLIENTE'
        Title.Caption = 'C'#243'digo'
        Width = 103
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NOMECLIENTE'
        Title.Caption = 'Beneficiario'
        Width = 435
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SITUACAO'
        Title.Caption = 'Sittua'#231#227'o'
        Width = 92
        Visible = True
      end>
  end
  object MaskEdit1: TJvDateEdit
    Left = 144
    Top = 112
    Width = 113
    Height = 21
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  object MaskEdit2: TJvDateEdit
    Left = 280
    Top = 112
    Width = 113
    Height = 21
    TabOrder = 5
    OnKeyPress = FormKeyPress
  end
  object MaskEdit3: TJvDateEdit
    Left = 544
    Top = 112
    Width = 113
    Height = 21
    TabOrder = 6
    OnKeyPress = FormKeyPress
  end
  object XMLDocument1: TXMLDocument
    FileName = 'C:\solicitacao_procedimentos.xml'
    Left = 207
    Top = 9
    DOMVendorDesc = 'MSXML'
  end
  object cdsBuscaGuia: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBuscaGuia'
    Left = 495
    Top = 3
    object cdsBuscaGuiaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object cdsBuscaGuiaNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object cdsBuscaGuiaRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object cdsBuscaGuiaCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object cdsBuscaGuiaTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object cdsBuscaGuiaCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object cdsBuscaGuiaCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsBuscaGuiaINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object cdsBuscaGuiaRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object cdsBuscaGuiaSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object cdsBuscaGuiaREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object cdsBuscaGuiaLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object cdsBuscaGuiaDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object cdsBuscaGuiaCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object cdsBuscaGuiaSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object cdsBuscaGuiaHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object cdsBuscaGuiaPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object cdsBuscaGuiaPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object cdsBuscaGuiaCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object cdsBuscaGuiaBASE_ICMS: TSmallintField
      FieldName = 'BASE_ICMS'
    end
    object cdsBuscaGuiaDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object cdsBuscaGuiaCONTA_CLIENTE: TStringField
      FieldName = 'CONTA_CLIENTE'
      Size = 15
    end
    object cdsBuscaGuiaOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object cdsBuscaGuiaTEM_IE: TStringField
      FieldName = 'TEM_IE'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaID_COB: TIntegerField
      FieldName = 'ID_COB'
    end
    object cdsBuscaGuiaDATARESC: TDateField
      FieldName = 'DATARESC'
    end
    object cdsBuscaGuiaNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 80
    end
    object cdsBuscaGuiaSEXO: TStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaFORMA_CORRESPOND: TStringField
      FieldName = 'FORMA_CORRESPOND'
      Size = 30
    end
    object cdsBuscaGuiaGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object cdsBuscaGuiaCODINCLUCANC: TIntegerField
      FieldName = 'CODINCLUCANC'
    end
    object cdsBuscaGuiaEXIST_COBERT: TStringField
      FieldName = 'EXIST_COBERT'
      Size = 6
    end
    object cdsBuscaGuiaEXISTCOPART: TStringField
      FieldName = 'EXISTCOPART'
      Size = 6
    end
    object cdsBuscaGuiaDATAREINC: TDateField
      FieldName = 'DATAREINC'
    end
    object cdsBuscaGuiaGERAAVISO: TStringField
      FieldName = 'GERAAVISO'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaGERAENV: TStringField
      FieldName = 'GERAENV'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaGERABOL: TStringField
      FieldName = 'GERABOL'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaEMVIAGEM: TStringField
      FieldName = 'EMVIAGEM'
      FixedChar = True
      Size = 1
    end
    object cdsBuscaGuiaDTAALTERA: TDateField
      FieldName = 'DTAALTERA'
    end
    object cdsBuscaGuiaSERIE: TStringField
      FieldName = 'SERIE'
      Size = 4
    end
    object cdsBuscaGuiaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ReadOnly = True
      FixedChar = True
      Size = 9
    end
    object cdsBuscaGuiaTIPO: TStringField
      FieldName = 'TIPO'
      ReadOnly = True
      FixedChar = True
      Size = 8
    end
    object cdsBuscaGuiaRA: TStringField
      FieldName = 'RA'
      Size = 10
    end
  end
  object scdsBuscaGuia: TSQLDataSet
    CommandText = 
      'select CODCLIENTE, NOMECLIENTE, RAZAOSOCIAL, CONTATO, TIPOFIRMA,' +
      ' CPF, CNPJ, INSCESTADUAL, RG, SEGMENTO, REGIAO, LIMITECREDITO, D' +
      'ATACADASTRO, CODUSUARIO, STATUS, HOMEPAGE, PRAZORECEBIMENTO, PRA' +
      'ZOENTREGA, CODBANCO, BASE_ICMS, DATANASC, CONTA_CLIENTE, OBS, TE' +
      'M_IE, ID_COB, DATARESC, NOMEMAE, SEXO, FORMA_CORRESPOND, GRUPO_C' +
      'LIENTE, CODINCLUCANC, EXIST_COBERT, EXISTCOPART, DATAREINC, GERA' +
      'AVISO, GERAENV, GERABOL, EMVIAGEM, DTAALTERA, SERIE,RA, '#13#10'(case ' +
      'when STATUS=0 then '#39'ATIVO'#39' else '#39'DESLIGADO'#39' end) as SITUACAO,'#13#10'(' +
      'case when TIPOFIRMA=0 then '#39'FISICA'#39' else '#39'JURIDICA'#39' end) as TIPO' +
      #13#10'from CLIENTES where (GRUPO_CLIENTE = '#39'ASH'#39') and STATUS = 0 ord' +
      'er by NOMECLIENTE'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.sqlsisAdimin
    Left = 415
    Top = 1
    object scdsBuscaGuiaCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object scdsBuscaGuiaNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object scdsBuscaGuiaRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object scdsBuscaGuiaCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object scdsBuscaGuiaTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object scdsBuscaGuiaCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object scdsBuscaGuiaCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object scdsBuscaGuiaINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object scdsBuscaGuiaRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object scdsBuscaGuiaSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object scdsBuscaGuiaREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object scdsBuscaGuiaLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object scdsBuscaGuiaDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object scdsBuscaGuiaCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object scdsBuscaGuiaSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object scdsBuscaGuiaHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object scdsBuscaGuiaPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object scdsBuscaGuiaPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object scdsBuscaGuiaCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object scdsBuscaGuiaBASE_ICMS: TSmallintField
      FieldName = 'BASE_ICMS'
    end
    object scdsBuscaGuiaDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object scdsBuscaGuiaCONTA_CLIENTE: TStringField
      FieldName = 'CONTA_CLIENTE'
      Size = 15
    end
    object scdsBuscaGuiaOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object scdsBuscaGuiaTEM_IE: TStringField
      FieldName = 'TEM_IE'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaID_COB: TIntegerField
      FieldName = 'ID_COB'
    end
    object scdsBuscaGuiaDATARESC: TDateField
      FieldName = 'DATARESC'
    end
    object scdsBuscaGuiaNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 80
    end
    object scdsBuscaGuiaSEXO: TStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaFORMA_CORRESPOND: TStringField
      FieldName = 'FORMA_CORRESPOND'
      Size = 30
    end
    object scdsBuscaGuiaGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object scdsBuscaGuiaCODINCLUCANC: TIntegerField
      FieldName = 'CODINCLUCANC'
    end
    object scdsBuscaGuiaEXIST_COBERT: TStringField
      FieldName = 'EXIST_COBERT'
      Size = 6
    end
    object scdsBuscaGuiaEXISTCOPART: TStringField
      FieldName = 'EXISTCOPART'
      Size = 6
    end
    object scdsBuscaGuiaDATAREINC: TDateField
      FieldName = 'DATAREINC'
    end
    object scdsBuscaGuiaGERAAVISO: TStringField
      FieldName = 'GERAAVISO'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaGERAENV: TStringField
      FieldName = 'GERAENV'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaGERABOL: TStringField
      FieldName = 'GERABOL'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaEMVIAGEM: TStringField
      FieldName = 'EMVIAGEM'
      FixedChar = True
      Size = 1
    end
    object scdsBuscaGuiaDTAALTERA: TDateField
      FieldName = 'DTAALTERA'
    end
    object scdsBuscaGuiaSERIE: TStringField
      FieldName = 'SERIE'
      Size = 4
    end
    object scdsBuscaGuiaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ReadOnly = True
      FixedChar = True
      Size = 9
    end
    object scdsBuscaGuiaTIPO: TStringField
      FieldName = 'TIPO'
      ReadOnly = True
      FixedChar = True
      Size = 8
    end
    object scdsBuscaGuiaRA: TStringField
      FieldName = 'RA'
      Size = 10
    end
  end
  object dspBuscaGuia: TDataSetProvider
    DataSet = scdsBuscaGuia
    Left = 455
    Top = 3
  end
  object dsBuscaGuia: TDataSource
    DataSet = cdsBuscaGuia
    Left = 535
    Top = 3
  end
  object OpenDialog1: TOpenDialog
    Filter = 'XML|*.xml'
    InitialDir = 'C:\Home\GuiasEnviadas'
    Left = 656
    Top = 421
  end
  object procforn: TSQLClientDataSet
    CommandText = 
      'select CODFORNECEDOR,NOMEFORNECEDOR from FORNECEDOR where NOMEFO' +
      'RNECEDOR LIKE :NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 264
    Top = 58
    object procfornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object procfornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object cdsBuscaForn: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaForn'
    Left = 208
    Top = 58
    object cdsBuscaFornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object cdsBuscaFornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object cdsBuscaFornCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsBuscaFornCNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object cdsBuscaFornLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object cdsBuscaFornCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsBuscaFornCEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaFornNUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaFornSIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaFornCD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object cdsBuscaFornDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaFornNM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object cdsBuscaFornCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object cdsBuscaFornCD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaFornNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaFornFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaFornCOMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaFornUF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object cdsBuscaFornCEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object dspBuscaForn: TDataSetProvider
    DataSet = scdsBuscaForn
    Left = 176
    Top = 58
  end
  object scdsBuscaForn: TSQLDataSet
    CommandText = 
      'select '#13#10'forn.CODFORNECEDOR ,'#13#10'forn.NOMEFORNECEDOR,'#13#10'udf_digits(' +
      'forn.CNPJ) as CNPJ,'#13#10'udf_digits(forn.INSCESTADUAL) as CNES,'#13#10'end' +
      'e.LOGRADOURO,'#13#10'ende.COMPLEMENTO,'#13#10'udf_digits(ende.CEP) as CEP_CO' +
      'NTRATADO,'#13#10'ende.E_MAIL as NUMERO,'#13#10'ende.UF as SIGLA,'#13#10'logr.CD_TI' +
      'PO_LOGRADOURO,'#13#10'udf_digits(ende.DADOSADICIONAIS) as DADOSADICION' +
      'AIS,'#13#10'ibge.NM_MUNICIPIO,'#13#10'ibge.CD_IBGE,'#13#10'ibge.CD_UF, '#13#10'repr. NOM' +
      'E_REPRFOR,'#13#10'repr.FUNCAO,'#13#10'repr.COMPLEMENTO,'#13#10'repr.UF,'#13#10'repr.CEP'#13 +
      #10'from FORNECEDOR forn '#13#10'inner join ENDERECOFORNECEDOR ende on en' +
      'de.CODFORNECEDOR = forn.CODFORNECEDOR '#13#10'left outer join TB_IBGE ' +
      'ibge on udf_collatebr(ibge.NM_LOCALIDADE) = udf_collatebr(ende.C' +
      'IDADE)'#13#10'inner join REPR_FORNECEDOR repr on repr.COD_FORNECEDOR =' +
      ' forn.CODFORNECEDOR'#13#10'left outer join TB_TIPO_LOGRADOURO logr on ' +
      'logr.DS_TIPO_LOGRADOURO = ende.BAIRRO'#13#10'where forn.CODFORNECEDOR ' +
      '= :prcod'#13#10#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 58
    object scdsBuscaFornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object scdsBuscaFornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object scdsBuscaFornCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object scdsBuscaFornCNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object scdsBuscaFornLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object scdsBuscaFornCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsBuscaFornCEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaFornNUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaFornSIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaFornCD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object scdsBuscaFornDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaFornNM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object scdsBuscaFornCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object scdsBuscaFornCD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaFornNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaFornFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaFornCOMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaFornUF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object scdsBuscaFornCEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object scdsRepr: TSQLDataSet
    CommandText = 
      'select REPR.NOME_REPRFOR, '#13#10'          REPR.FUNCAO, '#13#10'          R' +
      'EPR.UF,'#13#10'          REPR.NUMERO,'#13#10'          REPR.COMPLEMENTO,'#13#10'  ' +
      '        udf_Digits(CBO.CD_CBO_SAUDE) as CD_CBO_SAUDE  '#13#10'from REP' +
      'R_FORNECEDOR REPR'#13#10'INNER JOIN  TB_CBO_SAUDE CBO ON CBO.CD_CBO_SA' +
      'UDE = REPR.FUNCAO'#13#10' where '#13#10'REPR.COD_FORNECEDOR = :PRCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 504
    Top = 58
    object scdsReprNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object scdsReprFUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object scdsReprUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object scdsReprNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object scdsReprCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsReprCD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
  end
  object cdsRepr: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    ProviderName = 'dspRepr'
    Left = 584
    Top = 58
    object cdsReprNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object cdsReprFUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object cdsReprUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cdsReprNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object cdsReprCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsReprCD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
  end
  object dspRepr: TDataSetProvider
    DataSet = scdsRepr
    Left = 544
    Top = 58
  end
  object vcl_guiaconsulta: TVCLReport
    Filename = 'C:\home\ash\relatorios\guia_consulta.rep'
    AsyncExecution = False
    Title = 'Untitled'
    Left = 616
    Top = 358
  end
  object procforn2: TSQLClientDataSet
    CommandText = 
      'select CODFORNECEDOR,NOMEFORNECEDOR, CNPJ from FORNECEDOR where ' +
      'NOMEFORNECEDOR LIKE :NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 264
    Top = 138
    object procforn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object procforn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object procforn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
  end
  object cdsBuscaForn2: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaForn'
    Left = 208
    Top = 138
    object cdsBuscaForn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object cdsBuscaForn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object cdsBuscaForn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsBuscaForn2CNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object cdsBuscaForn2LOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object cdsBuscaForn2COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsBuscaForn2CEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaForn2NUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaForn2SIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaForn2CD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object cdsBuscaForn2DADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaForn2NM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object cdsBuscaForn2CD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object cdsBuscaForn2CD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaForn2NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaForn2FUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaForn2COMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaForn2UF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object cdsBuscaForn2CEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object dspBuscaForn2: TDataSetProvider
    DataSet = scdsBuscaForn2
    Left = 176
    Top = 138
  end
  object scdsBuscaForn2: TSQLDataSet
    CommandText = 
      'select '#13#10'forn.CODFORNECEDOR ,'#13#10'forn.NOMEFORNECEDOR,'#13#10'forn.CNPJ,'#13 +
      #10'forn.INSCESTADUAL as CNES,'#13#10'ende.LOGRADOURO,'#13#10'ende.COMPLEMENTO,' +
      #13#10'udf_digits(ende.CEP) as CEP_CONTRATADO,'#13#10'ende.E_MAIL as NUMERO' +
      ','#13#10'ende.UF as SIGLA,'#13#10'logr.CD_TIPO_LOGRADOURO,'#13#10'udf_digits(ende.' +
      'DADOSADICIONAIS) as DADOSADICIONAIS,'#13#10'ibge.NM_MUNICIPIO,'#13#10'ibge.C' +
      'D_IBGE,'#13#10'ibge.CD_UF, '#13#10'repr. NOME_REPRFOR,'#13#10'repr.FUNCAO,'#13#10'repr.C' +
      'OMPLEMENTO,'#13#10'repr.UF,'#13#10'repr.CEP'#13#10'from FORNECEDOR forn '#13#10'inner jo' +
      'in ENDERECOFORNECEDOR ende on ende.CODFORNECEDOR = forn.CODFORNE' +
      'CEDOR '#13#10'left outer join TB_IBGE ibge on udf_collatebr(ibge.NM_LO' +
      'CALIDADE) = udf_collatebr(ende.CIDADE)'#13#10'inner join REPR_FORNECED' +
      'OR repr on repr.COD_FORNECEDOR = forn.CODFORNECEDOR'#13#10'left outer ' +
      'join TB_TIPO_LOGRADOURO logr on logr.DS_TIPO_LOGRADOURO = ende.B' +
      'AIRRO'#13#10'where forn.CODFORNECEDOR = :prcod'#13#10#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 138
    object scdsBuscaForn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object scdsBuscaForn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object scdsBuscaForn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object scdsBuscaForn2CNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object scdsBuscaForn2LOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object scdsBuscaForn2COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsBuscaForn2CEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaForn2NUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaForn2SIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaForn2CD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object scdsBuscaForn2DADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaForn2NM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object scdsBuscaForn2CD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object scdsBuscaForn2CD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaForn2NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaForn2FUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaForn2COMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaForn2UF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object scdsBuscaForn2CEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object cdsRepr1: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    ProviderName = 'dspRepr'
    Left = 552
    Top = 138
    object cdsRepr1NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object cdsRepr1FUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object cdsRepr1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cdsRepr1NUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object cdsRepr1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsRepr1CD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
  end
  object dspRepr1: TDataSetProvider
    DataSet = scdsRepr1
    Left = 512
    Top = 138
  end
  object scdsRepr1: TSQLDataSet
    CommandText = 
      'select REPR.NOME_REPRFOR, '#13#10'          REPR.FUNCAO, '#13#10'          R' +
      'EPR.UF,'#13#10'          REPR.NUMERO,'#13#10'          REPR.COMPLEMENTO,'#13#10'  ' +
      '        udf_Digits(CBO.CD_CBO_SAUDE) as CD_CBO_SAUDE  '#13#10'from REP' +
      'R_FORNECEDOR REPR'#13#10'INNER JOIN  TB_CBO_SAUDE CBO ON CBO.CD_CBO_SA' +
      'UDE = REPR.FUNCAO'#13#10' where '#13#10'REPR.COD_FORNECEDOR = :PRCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 472
    Top = 138
    object scdsRepr1NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object scdsRepr1FUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object scdsRepr1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object scdsRepr1NUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object scdsRepr1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsRepr1CD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
  end
  object sql_numGuia: TSQLDataSet
    CommandText = 
      'select (max(cast(NUMERO_GUIA as integer)) +1) as nu  from guias ' +
      'where TIPO_GUIA = :tipo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'tipo'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 584
    Top = 376
    object sql_numGuiaNU: TFMTBCDField
      FieldName = 'NU'
      ReadOnly = True
      Precision = 15
      Size = 0
    end
  end
  object TissC: TTissConsulta
    Versao.Versao = '0.9.13'
    TissVersaoXml = '1.0'
    TissVersaoTISS = '2.01.02'
    TissEncoding = 'ISO-8859-1'
    TissMensagemTissXml = 
      'xmlns="http://www.w3.org/2001/XMLSchema" xmlns:ans="http://www.a' +
      'ns.gov.br/padroes/tiss/schemas"'
    TissTipo = Juridico
    TissCodigoTabela = 0
    TissConfig.UsarCBOS = True
    TissConfig.UsarTipoTrans = True
    TissConfig.UsarDataRegistroTrans = True
    TissConfig.UsarHoraRegistroTrans = True
    TissConfig.UsarSequencialTrans = True
    TissConfig.UsarTipo = False
    TissConfig.UsarCNPJCPF = True
    TissConfig.UsarRegANS = True
    TissConfig.UsarNumLote = True
    TissConfig.UsarNumGuia = True
    TissConfig.UsarNumCarteira = True
    TissConfig.UsarPaciente = True
    TissConfig.UsarNomePlano = True
    TissConfig.UsarValidadeCart = False
    TissConfig.UsarNumCNS = False
    TissConfig.UsarNomeContradado = True
    TissConfig.UsartipoLogradouro = True
    TissConfig.UsarLogradouro = True
    TissConfig.UsarEndNum = True
    TissConfig.UsarComplemento = True
    TissConfig.UsarcodigoIBGE = True
    TissConfig.UsarMunicipio = True
    TissConfig.UsarUF = True
    TissConfig.UsarCEP = True
    TissConfig.UsarCNES = True
    TissConfig.UsarMEDICO = True
    TissConfig.UsarSIGLACONSELHO = True
    TissConfig.UsarNUMEROCONSELHO = True
    TissConfig.UsarUFCONSELHO = True
    TissConfig.UsarCIDNomeTab = True
    TissConfig.UsarCIDCodDiag = True
    TissConfig.UsarCIDDescDiag = True
    TissConfig.UsardataAtendimento = True
    TissConfig.UsarCodigoTabela = True
    TissConfig.UsarCodProc = True
    TissConfig.UsarTipoConsulta = False
    TissConfig.UsarTipoSaidaa = True
    TissConfig.UsarPadroes = True
    TissConfig.UsarHipoteseDiag = True
    TissConfig.UsarEvolucaoValor = True
    TissConfig.UsarIndicAcid = True
    TissConfig.UsarUnidTemp = False
    TissConfig.UsarTipDoenca = False
    TissConfig.UsarObs = True
    TissConfig.UsarEndContratado = True
    TissConfig.UsarNomeArq = False
    TissConfig.UsarArqNomeHash = True
    TissValid.UsarValidacao = False
    TissValid.TissXSD = 'C:\home\guiasenviadas\validar\tissV2_01_02_completo.xsd'
    TissZerosArq = 20
    Left = 296
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Left = 520
    Top = 360
    object Procurar1: TMenuItem
      Bitmap.Data = {
        C2070000424DC20700000000000036000000280000001E000000150000000100
        1800000000008C070000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0070A01F70A01F80AF0070
        A0BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF108FBF2F8FB00F0F0F0000001F4F600F7FB0
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF0070A020AFDF3FCFFF50909FF0C090806F500000002F607FBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0F70AF
        108FC03FCFFF3FCFFF50909FFFCF9FFFCF9F4F4030101F1F2F80B0BFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00609F1F9FCF3FCFFF1F9FCF3F
        CFFF4FCFFF50A0BFF0C090FFCF9FAF8F6F0000005F90B0BFBFBFBFBFBF005080
        2F80B000609FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0F7FB02FBFEF3FCFFF3FCFFF2090C070DFFF90E0
        FFAFE0FFAF9F80FFCF9FCFA080000000508FAF00609F409FC0609FB01F1F1F1F
        30400F70A0BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBF108FC03FCFFF40CFFF5FD0FF7FDFFF409FC0AFE0FFD0F0FFE0F0FF
        EFEFF0A09080806F50304F5F308FBF80D0F07FDFFF5F8F9F9F8060000000102F
        3F00609FBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0070A01080
        BF4FD0FF6FD0FF8FDFFFA0E0FFC0EFFFBFE0F05F9FC0F0FFFFF0FFFFDFF0FFBF
        E0FF5FAFCF0F90C050C0EF50D0FF3FCFFF50909FFFCF9F6F5F400000000F5F80
        BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF0F7FAF30AFDF4FAFDF90E0FF
        AFEFFFCFEFFFDFF0FFEFFFFFF0FFFF2F9FC02F9FC060BFDF409FC00F8FB00070
        A000AFD030BFEF3FCFFF3FCFFF309FBFF0C090CFA0800000001F709FBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBF00609F90DFFF3F8FBFD0F0FFE0F0FFF0
        FFFFF0FFFFE0F0FFCFF0FF90D0EF1F9FCF00A0CF0090C000AFD00080B000AFD0
        20BFEF3FCFFF3FCFFF3FCFFF809080CFA0800000001F6F90BFBFBFBFBFBFBFBF
        BFBFBFBF0000BFBFBFBFBFBF00609FD0F0FF80BFD07FB0CFF0FFFFDFF0FFC0EF
        FFAFE0FF8FDFFF70DFFF50D0FF1FA0D00070AF0090C0007FAF00A0CF0F9FCF3F
        CFFF3FCFFF3FCFFF3FC0F050808000304F0070A0BFBFBFBFBFBFBFBFBFBFBFBF
        0000BFBFBFBFBFBF00609F8FBFD0D0E0F02F80AF207FAF60B0DF60BFDF60D0FF
        4FCFFF3FCFFF3FCFFF3FCFFF30C0FF1F9FD00090BF00A0CF00A0CF10A0D030C0
        FF1FAFDF1090C00070AF005080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
        BFBFBFBFBFBFBF00609F00609FBFBFBFBFBFBF0F70A020A0D020A0DF20A0DF30
        C0FF3FCFFF3FCFFF3FCFFF3FCFFF30C0FF20A0DF006F9F0070A0005080BFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0F7FAF20AFDF108FC01F9F
        CF109FD01090C0007FB0006F9F005080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0070A0007FAF00609FBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBF0000}
      Caption = 'Procurar'
      ShortCut = 119
    end
    object Incuir1: TMenuItem
      Bitmap.Data = {
        1E060000424D1E06000000000000360000002800000018000000150000000100
        180000000000E8050000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302F60302F7F7F
        7FCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302FFF9790
        FF979000FFFF60302F60302FCF67607F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F60302FFF
        9790FFC8CFFFC8CFFFC8CF00FFFFFFC8CF60302FCF6760CF6760CF67607F7F7F
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F6030
        2FFF9790FFC8CF00FFFFCFFFFFFFC8CFFFC8CFCFFFFFFFC8CFCF676060302FCF
        6760CF6760CF67607F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        7F7F7FCF6760FFC8CF00FFFFFFC8CFFFC8CF7F7F7F7F7F7FCFFFFFFFC8CFCFFF
        FFFFC8CF60302FFF0000CF6760CF6760CF67607F7F7F7F7F7FBFBFBFBFBFBFBF
        BFBFBFBFBF7F7F7FFF9790FFC8CF00FFFFCFFFFF7F7F7F7F7F7FFFC8CF00FFFF
        FFC8CF00FFFFFFC8CFCFFFFFCF67600000FFFF0000FF00007F7F7F7F7F7F7F7F
        7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00FFFFFFC8CFFFC8CF7F7F7FFFC8CFCF
        FFFFFFC8CF7F7F7F7F7F7FCFFFFFCFFFFFFFC8CFCFFFFF60302F0000FFFF0000
        CF67607F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFFFFF
        FFFFFFFF00FFFF7F7F7F7F7F7FCFFFFFCFFFFFCFFFFFFFC8CFCFFFFFFFC8CFCF
        6760FF97900000FFFF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFFFC8CFFFFFFFFFFFFF1F201F7F7F7FCFFFFFCFFFFF7F7F7F7F7F7FCFFF
        FFFFC8CFCFFFFFFFC8CF60302FFFC8CF0000FFFF0000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFFFC8CFCF6760CF67601F201F7F7F7F7F7F7F
        CFFFFFCFFFFFFFC8CFCFFFFFFFC8CFCFFFFFCF6760CFFFFFFF97900000FFFF00
        00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FFC8CFFF9790CF
        67601F201F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFC8CFFFFFFF60302F
        CFFFFFFF97900000FFCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FFC8
        CFFFC8CFFF9790FF9790CF67601F201F7F7F7FCFFFFFFFFFFFCFFFFFFFFFFFCF
        FFFFFFC8CFCF6760FFFFFFFFFFFFFF00000000FFCF6760BFBFBFBFBFBFBFBFBF
        CF6760FFC8CFFFC8CFFFC8CFFF9790FF9790FF9790CF67601F201F7F7F7FFFFF
        FFFFFFFFFFFFFFFFC8CFCFFFFFFFC8CFFFFFFFFFFFFFFFFFFFCF6760CF6760BF
        BFBFBFBFBFCF6760FFC8CFFFFFFFFFC8CFFFC8CFFF9790CF6760CF6760CF6760
        CF67601F201F7F7F7FFFFFFF3F3700CFFFFFCF6760FFFFFF0000FF0000FF0000
        FFCF6760BFBFBFBFBFBFBFBFBF60302F60302F60302FFFC8CFFFC8CFFF9790CF
        67601F201F1F201F1F201F1F201F1F201FFFFFFFFFFFFFFFC8CFFFFFFFFFFFFF
        FFFFFFFFC8CFCF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFC8
        CFFFC8CFFF9790CF67601F201F60302F60302F60302F60302FFFC8CFFFC8CFFF
        FFFFFF0000FF0000CF6760BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        FF9790FFC8CFFFC8CFFFFFFFFF9790CF67601F201F60302F0000FF0000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFCF6760FFFFFFFFFFFFFFC8CFFF9790CF67601F201F60302F
        BFBFBFFFFFFFFFFFFFFFFFFF0000FF0000FF0000FFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760FF9790FF9790FF9790FF9790CF
        67601F201F60302FBFBFBFBFBFBFFF0000FF0000BFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFCF6760CF6760CF67
        60CF6760CF67601F201F60302F7F7F7FFFC8CFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBF}
      Caption = 'Gerar'
      ShortCut = 113
      OnClick = BitBtn1Click
    end
    object Gravar1: TMenuItem
      Bitmap.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E00000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000B00000D00000C0000070000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000014000042
        00007000007700007600007700007700007400006F00004E0000250000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000B00006B000085000080
        00008100008000007F00007D00007D00007E00007D00007C00007200006B0000
        2D00000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000048000092000087000087000085
        00008100007F00007E00007C00007B00007C00007C00007C00007E00007B0000
        7300005E00000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000006D00009200008D00008B000088000085
        00008400008100007F00007E00007C00007B00007C00007C00007C00007C0000
        7D00007700006A00000700000000000000000000000000000000000000000000
        000000000000000000000000006900009A00009300008F00008C00008A000088
        00008500008400007B00007800007D00007C00007B00007C00007C00007C0000
        7C00007C00007900006D00000000000000000000000000000000000000000000
        00000000000000000000370000A600009600009400009200008E00008C00008A
        00008800007900B0C0B0C5C9C5007C00007D00007C00007B00007C00007C0000
        7C00007C00007C00007700006100000000000000000000000000000000000000
        00000000000000000000B700009900009700009600009400009200008E00008C
        00007C00B4C5B4D9CFD9E0CFE05AA95A007800007E00007C00007B00007C0000
        7C00007C00007C00007C00007400003200000000000000000000000000000000
        00000000000000680000A700009C00009A00009700009600009400009200007E
        00B1CBB1E9DDE9D4D4D4D5D4D5E7DAE7007D00007E00007E00007C00007B0000
        7C00007C00007C00007C00007B00007100000000000000000000000000000000
        00000000000002C20200A00000A000009C00009A00009700009700008300A8CE
        A8FDEEFDE2E3E2DFDFDFDCDCDCEDE1ED77B877007800007F00007E00007C0000
        7B00007C00007C00007C00007D00007600002C00000000000000000000000000
        00000005340506B80600A10000A00000A000009C00009B0000870093CD93FFFD
        FFECEDECF6F3F6F1F0F1E5E5E5E3E3E3FFEEFF008200007F00007F00007E0000
        7C00007B00007C00007C00007C00007C00005800000000000000000000000000
        0000000F710F06B00600A30000A10000A00000A000008F0074C574FFFFFFF6F7
        F6FFFFFFA4B5A4BABABAF6F5F6EAEAEAF7EFF795C695007A00008100007F0000
        7E00007C00007B00007C00007C00007C00007800000000000000000000000000
        0000001C961C02AD0200A50000A40000A100009A0063C763FFFFFFFFFFFFFFFF
        FFD4D6D40080002B632BFFFFFFF1F1F1F0F0F0FFFEFF02870200820000810000
        7F00007E00007C00007B00007C00007D00007B00000D00000000000000000000
        000000269D2602AD0200A60000A50000A500319C31D9BFD9B5B0B5B7B1B7B3B7
        B3008100009A00007600CEBECEFFFFFFF5F5F5FFF9FFB3D9B300790000840000
        8100007F00007E00007C00007B00007D00007E00000F00000000000000000000
        000000279E2702AF0200A70000A60000A700009C000094000092000091000093
        00009C00009600009D00246124FFFFFFF8F8F8F7F7F7FFFFFF13921300820000
        8400008100007F00007E00007C00007C00007F00001000000000000000000000
        0000002B9E2B03B10300A80000A70000A60000A60000A50000A20000A10000A0
        00009C00009A00009900007B00C5B9C5FFFFFFFAFBFAFFFDFFCDE8CD007B0000
        8500008400008100007F00007E00007D00008000001000000000000000000000
        0000003B9C3B0AB40A00AA0000A90000A70000A60000A50000A40000A10000A0
        0000A000009C00009A00009E001B601BFFFFFFFDFDFDFCFCFCFFFFFF2C9F2C00
        8300008500008400008100007F00008000008300000700000000000000000000
        0000003372331CBF1C00A90000AA0000A90000A70000A60000A50000A40000A1
        0000A00000A000009C00009C00008100BBB3BBFFFFFFFEFEFEFFFFFFE4F3E400
        7C00008800008500008400008100008000008500000000000000000000000000
        00000008040845E24500A90000AA0000AA0000A90000A70000A60000A50000A4
        0000A10000A00000A000009C0000A100115F11FFFFFFFFFFFFFDFDFDFFFFFF48
        AE48008400008800008500008500008500005200000000000000000000000000
        0000000000005DD15D0AB20A00AB0000AA0000AA0000A90000A70000A60000A5
        0000A40000A10000A00000A000009D00008700B1ABB1FFFFFFFFFFFFFFFFFFFE
        FFFE007F00008A00008800008600008F00002400000000000000000000000000
        0000000000002A482A40D84000AA0000AB0000AA0000AA0000A90000A70000A6
        0000A50000A40000A10000A000009F0000A300076007FFFFFFFFFFFFFFFFFFFF
        FFFF77C677008600008A00008900008600000000000000000000000000000000
        00000000000000000067CA6717B91700AB0000AC0000AA0000AA0000A90000A7
        0000A60000A50000A40000A10000A00000A100009300516F516382636080605F
        7C5F82AC82008B00008B0000A300001700000000000000000000000000000000
        0000000000000000000D0D0D6DED6D05AF0500AB0000AC0000AA0000AA0000A9
        0000A70000A60000A50000A40000A10000A00000A00000A200009E00009B0000
        9A00009300009200009A00006300000000000000000000000000000000000000
        000000000000000000000000232E2372FA7204AE0400AB0000AB0000AA0000AA
        0000A90000A70000A60000A50000A40000A10000A000009F00009B00009A0000
        96000094000BA20B0C920C000000000000000000000000000000000000000000
        00000000000000000000000000000024302476F07619B91900AA0000AA0000AA
        0000AA0000A90000A70000A60000A50000A40000A10000A000009F00009B0000
        980017B5171A8A1A000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000E0E0E78D1784DDC4D0BB30B00A8
        0000A80000A90000A80000A60000A60000A50000A20000A000009E0013AD1334
        D734155015000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000000000000000354D357CDD7C5EEB
        5E29C2290FB50F05B20504AF0404AE0407AD0713B41329C32949E2492E822E00
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000B07
        0B4D7E4D62B06253AB5350AB5050AB504EA84E40894023462300000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      Caption = 'Imprimir'
      ShortCut = 115
      OnClick = BitBtn3Click
    end
    object Sair1: TMenuItem
      Bitmap.Data = {
        060E0000424D060E000000000000360000002800000022000000220000000100
        180000000000D00D0000C40E0000C40E00000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFE9E9E8CBCAC8D9D7D5E9E4E1F2EEEEFCF8F6FFFDFBFF
        FFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD7E3EA3B7699185D83266689406A844C74
        8B6080917D8C93929999A9A9A9C1BCBAD1CBC6DED7D5EDE8E3F9F6F3FDF9F7FF
        FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFF5F8FBF3F7FAF4F8FBF5F8FBFCFDFE8AB4CE005696005D9F
        005F99005C94005B93005A90005A91005A9000598E075886195B811F5D823062
        7C4D6D7E5C758293989BF5F5F4FFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFB4CDDE186A9D146B9F176FA2176FA21970A30C
        679A02639C1B76C91976C61674C11575BE1272BA106FB60B6BAE0B6AAE0666AB
        0364A90064A500619E005A9F005C9C20597BDDD7D4FFFFFF0000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF72A5C7004A820643700740
        6D06406D073F6D014D800766A5217FD22083D22487D32183D22183D22183D220
        81D01F7ECF1D7DCD1D7DCC1B78C91A78C71871C00668AD125A85D6D0CBFFFFFF
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEEE7EFFFF9F65F9BBD
        00508513375F14355D14365F14325A044F660866AC268AD7288CD5278ED6278D
        D6268DD6268BD5268AD4268AD42489D32286D22287D32387D3207FD01072BC12
        5985D3CDC7FFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD4D5D440
        8440BFBFB5629ABE005288123964133561112A5F013E220D785A0B65B7288ED9
        2D93D9268BD5298FD72B91D82B91D8258CD6268CD5288FD7268DD6268CD5268B
        D52188D41475C6125886C9C3BEFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFA8B7A71E8F2305880AB4B0A84A84B60044800B2E4C06393C04651550BC533C
        95A10762B02F93DC2D94D9278CD52B92D92D94DA2D94DA258DD6278DD62C92D9
        2A91D8288ED7268DD5288ED7187EC6115883C0BCB8FFFFFF0000FFFFFFFFFFFF
        FFFFFFFFF5FF86A68B0089042FC44216911C50774C195D3E004827166E1F30A2
        326CD47D9CF0AD2D86900C68B03092DD3197DB248AD52F95DA3098DB2F96DA28
        8ED62990D72E95DB2C92D92A90D8278ED62991D91B80C8085888B7B4B2FFFFFF
        0000FFFFFFFFFFFFF8F4F864956303940E27C23A32C0442EB63C28AE3635B842
        51C55E69D27A76D88D85DF9D79DA8C0062641371BB3396DF349ADD238BD33198
        DC3298DC3399DD298FD72B91D83298DC2F96DA2C93D9288FD72C92D91F82C900
        588DB0AFAEFFFFFF0000FFFFFFEAEFE935863700A1061EBB2F25BB362FBC403A
        C54E4BCA5E58CC6C60D07664D07975D68C7BDC90177F180044611579C93599DF
        399EDF268DD9389EE2359CDF379DDF2B90D82B91D8349BDE3198DC3096DB2990
        D72F94DB2587D500588EA8A8A7FFFFFF0000FFFFFFC7DCC60085010EB72016B9
        2826BB3730BC4039C34C49C75C4EC96260CF7570D78579DE8E24A21E06393403
        4F8B1A7BBF389FE53CA4E51F78B02C83B7369BDC3DA5E82D93DA2D94D9389DE0
        379ADD3299DD2A91D83397DD278BD4005B91A0A3A2FFFFFF0000FFFFFFFFFFFF
        DAE8D92B9A2F12AD2128BF3A2FBC403BC54E47CA5A51CD6357CD6541B34A0B6E
        1A072F481334620153861B80CA3996D21B5E9A0A4D920D4883164C6E3594D12E
        97DE2F95DB3AA1E3389FE1349BDE2A91D7399EE02A8DD9005C93979C9EFFFFFF
        0000FFFFFFFFFFFFFFFFFFEAECE94D9F4E04A31134C5472BB1371A9E22188D25
        16633B09483C0B375014356413385F005288278BCE1A6FB6105EAA1A7DCB1472
        C30A417D2D72932F97DE3198DC3DA3E43BA1E3389EE12A91D8389EE22E93DA02
        619D8A9399FFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFBFE71B57315A0211B
        911C5D7A73096095083D7313326013376213375F13375F02578F288CD20F5EA8
        1879C82086D31D81D00F5EAC175E8E3196D9349ADE40A6E53EA4E53BA1E22991
        D83BA2E33398E10665A4869093FFFEFC0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFAFD1AE1B931A75939F06639F0C406B13365E13386013375F12385F00
        5D942C91D7145EA657A3D860ACDF5DAADC155FA72172A0359ADE349BDE44A9E8
        40A6E53EA4E42991D83FA5E5369CE40666A5768992FFFDFB0000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE1F5DC95BCD4005B9210386013375F1338
        6013375F12375E005D943199DB2175B19CB0D3EEF5FDC2D2E7195D9E3C9DD333
        9BE0379DE045AAE841A7E541A7E72990D840A6E53A9FE50668A671858CFCFAF8
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8BB3CE00578F
        11386013375F13386013375E0D3D670360963297D93FA8E92A84BD559ACA2F85
        BF41A2DD4CB4F1359CDE38A0E249AEEC45ABEA48AEEA2A90D743A9E73EA6E80F
        72B4607F8DFCF9F70000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFF76A9C600568E13355E13386113386013365E0E3C6604639E3399DA4DB1F0
        3FA9E92994DC4DB5F24CB3F04CB2EE359CE0389FE14BB1ED48AEEA49AEEB2B91
        D946AAEA3FA7E71374B7597A8BFCF7F50000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF5F9DC0004F861233520F2E5013386013365D0B426C05
        65A13B9FE14DB3EF3EA6E739A1E44DB7F248B0EF4AB3F1319BE0349FE449B3F1
        45AFEF46B1F0258FD93DA8EA47AFEE1375B748718BF9F4F20000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5C9DC3004984025A16003B170D25
        4B14365C0B426E0A6BA93EA2E54AB5F438A1E43AA4E853B5EE4EB4EE53B6EF41
        9EDD53A8DD61B7E960B7E863B9E84B9CD462B4E64AAEEF1478BE466F87F5EFED
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5089B8003574
        0E771623A3260033180A183A09406B0B6EAB34A2EB92C4DCDCDBCCE0E5D5EFEB
        D4EFEBD4ECE6D3EEEBD3F8F3D2FCFAD5FAFAD5F2EDD3FBFED9FDE9CC9CC8DD12
        7DC63A6B86F4EEEA0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE4E1E28B
        A08D175C2E0062072E9B3280E39940B24800420D0A32530B74BA35A5ECFDE7CE
        E6DEEAD1CAF4C7C2F0B7B5F0FFFAF8DFDAF7A19CF4948EF28380F8FCFCFD7874
        FAFFF4EBBFDADF1A81CB306380EDE8E40000FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF819E802B862C219E2C35B9424AC55A62CD736ED4847DDB9356C65C0868470B
        6DBB45ABEAEFDED9382FEF2D27F05A56F23C35EF8C87F6615CF38583F6433DF0
        6965F4FCFBFE2C26EFFEF3F1BCDCE21981CB2C6382EAE4E00000FFFFFFFFFFFF
        FFFFFFF8F2F757965705A4122CC03E44C85849C95D56CB6B60D0766CD18076D6
        8C90E89F3793930B6CB554B6EFECDDDA2E28EFE3E2FBFAFAFDF0F0FD2019EC47
        41F0FFFFFF7773F4BCBAF9FCFBFD302AEFFFF7F9C4E3E81B87D2245F81E3E0DD
        0000FFFFFFFFFFFFFFFFFF6EA36E09A0142BC03E34BE443DC35148C75B54CA68
        60CF756CD18175D58B8EE69C3993960C6EB853B7F1F6E4DA2A23ED352FF06966
        F3FFFFFF3C35EF5D58F2FFFFFF7571F4BFBEFAFFFFFE322DF6D9D3CFB5CDCF23
        8ED9215E80E0DBD90000FFFFFFFFFFFFBEC7BF00920321BD322ABF3C31C3443D
        C54F48C95654CD6565D2786BD28083DE9B77DC7E127572147BC65BB9EEF3E2DA
        2924EFB8B4F8DBDBFBB2AFF73A36F0443DEFC0BDF94D47F0645EF3706CF75C53
        D6CFB99C8DB6CF2694DC1B587CD6D5D20000FFFFFFFFFFFF4FA0520BB51D1EBE
        3012AD2118992144A84F117443095B3024912D79DD9056BF620B6610004D6D1C
        83CB69BFEFF7E5DB3630F03C36F05550F1524DF2C0BFFAC2C0F97D79F58480F5
        8E8CF59A97F7F8DDCDCCDEDD57C0FB2C98DE195B7ECFCDCB0000FFFFFFEBF1EB
        0B90100CB61D00900678A178C2D4BED2DAE3025BA108367019842B4BC34D0157
        110F2C53024F851B87CD6DBEEEFFF4DADBDBFBE0E0FBEDEEFCF5F6FDFFFFF8FF
        FFF8FFFFF8FFFFF4FFFFF2FFFFEDFFE4C95DBBF151BDFD349BE015597FCBCBC8
        0000FFFFFFC3DEC30190062A8F2DD2D1CFFFFFFFFFFFFFDAE5F2005A940F3966
        04641801492013306515325B025182228BCF68BDF2FFEDC4FFFADFFFF9E3FFF4
        D9FFF1DAFEEBD4F7E9D6EEE5D3E5E2D5DCDDD9D1DBD98EC4E249B9F955B9F633
        9BE00C547EC0C2C20000FFFFFFC3E1C3007000B4BBB5FFFFFFFFFFFFFFFFFFD6
        E3ED00528D00487C00467400437900477A004576005588268CCE49B5FBB3D0D9
        BED4D5ABD0E2A3CFE390CBE887C6EC74C0F05EB9F548B1F13EAAF033A1E92C9A
        E23093D42B8FCF0F76BD105780CFCFCD0000FFFFFFC5E2C54F9250FFF8FFFFFF
        FFFFFFFFFFFFFFF6F9FA6AA1BF4389B2488BB6478CB5478CB54F91B804619624
        85C644AAEE3BA8EF39A2E92E9BE02892D9238ACF1780C90A74BE046CAD00629F
        005C96005991005A97025893096195186B9D75A0B8FCF9F80000FFFFFFFFFEFF
        F0F7F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF2E77A600589500609E00548F00518800548B0F6192256C972C78A13F
        7DA14B89AA5C96B87AA6C3A5C6DABDCAD2EEF4F5FFFFFEFFFFFFFFFFFFFFFFFF
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFF7FAFCA2F79A66190AC8EB1C3AECBDCD2DFE9E4EE
        F4EFF0F1F3F9FCFEFBF7FFFFFCFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFF0000}
      Caption = 'Sair'
      ShortCut = 120
      OnClick = BitBtn6Click
    end
  end
  object TissSP: TTissSP_SADT
    Versao.Versao = '0.9.13'
    Tissconfig.TissUsarBenefic = True
    Tissconfig.TissUsarContratado = True
    Tissconfig.TissUsarPrestadorExec = True
    Tissconfig.TissUsarDiagnostico = True
    Tissconfig.TissUsarProc = True
    Tissconfig.TissUsarProfissional = True
    Tissconfig.TissUsarOutDespesas = False
    Tissconfig.TissCabecalho.TissTipoTrans = True
    Tissconfig.TissCabecalho.TissDataRegistroTrans = True
    Tissconfig.TissCabecalho.TissHoraRegistroTrans = True
    Tissconfig.TissCabecalho.TissSequencialTrans = True
    Tissconfig.TissCabecalho.TissCNPJCPF = True
    Tissconfig.TissCabecalho.TissRegANS = True
    Tissconfig.TissCabecalho.TissNumLote = True
    Tissconfig.TissCabecalho.TissTipoGeral = True
    Tissconfig.TissCabecalho.TissUsarNomeArqu = False
    Tissconfig.TissCabecalho.TissArqNomeHash = True
    Tissconfig.TissBenefic.TissNumCarteira = True
    Tissconfig.TissBenefic.TissBenific = True
    Tissconfig.TissBenefic.TissNomePlano = True
    Tissconfig.TissBenefic.TissValidadeCart = False
    Tissconfig.TissBenefic.TissNumCNS = False
    Tissconfig.TissContratado.TissTipoGeral = True
    Tissconfig.TissContratado.TissCNPJCPF = True
    Tissconfig.TissContratado.TissNomeContradado = True
    Tissconfig.TissContratado.TisstipoLogradouro = True
    Tissconfig.TissContratado.TissLogradouro = True
    Tissconfig.TissContratado.TissEndNum = True
    Tissconfig.TissContratado.TissComplemento = True
    Tissconfig.TissContratado.TisscodigoIBGE = True
    Tissconfig.TissContratado.TissMunicipio = True
    Tissconfig.TissContratado.TissUF = True
    Tissconfig.TissContratado.TissCEP = True
    Tissconfig.TissContratado.TissCNES = True
    Tissconfig.TissContratado.TissUsarEnd = True
    Tissconfig.TissPrestadorExec.TissTipoGeral = True
    Tissconfig.TissPrestadorExec.TissCNPJCPF = True
    Tissconfig.TissPrestadorExec.TissNomeContradado = True
    Tissconfig.TissPrestadorExec.TisstipoLogradouro = True
    Tissconfig.TissPrestadorExec.TissLogradouro = True
    Tissconfig.TissPrestadorExec.TissEndNum = True
    Tissconfig.TissPrestadorExec.TissComplemento = True
    Tissconfig.TissPrestadorExec.TisscodigoIBGE = True
    Tissconfig.TissPrestadorExec.TissMunicipio = True
    Tissconfig.TissPrestadorExec.TissUF = True
    Tissconfig.TissPrestadorExec.TissCEP = True
    Tissconfig.TissPrestadorExec.TissCNES = True
    Tissconfig.TissPrestadorExec.TissUsarEnd = True
    Tissconfig.TissDiagnostico.TissCIDNomeTab = True
    Tissconfig.TissDiagnostico.TissCIDCodDiag = True
    Tissconfig.TissDiagnostico.TissCIDDescDiag = True
    Tissconfig.TissDiagnostico.TissValor = True
    Tissconfig.TissDiagnostico.TissUnTemp = True
    Tissconfig.TissDiagnostico.TissTipDoenc = True
    Tissconfig.TissDiagnostico.TissIndicAcid = True
    Tissconfig.TissProc.TissUsarEquipe = False
    Tissconfig.TissProc.TissEquipe.TissCodProf = True
    Tissconfig.TissProc.TissEquipe.TissTipoMemb = True
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissProf = False
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissSiglaConselho = True
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissNumConselho = True
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissUFConselho = True
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissfCBOS = True
    Tissconfig.TissProc.TissEquipe.TissProfiss.TissPosicProf = True
    Tissconfig.TissProc.TissProcs.TissCodigo = True
    Tissconfig.TissProc.TissProcs.TissTipTabela = True
    Tissconfig.TissProc.TissProcs.TissDescricao = True
    Tissconfig.TissProc.TissData = True
    Tissconfig.TissProc.TissHsInicio = True
    Tissconfig.TissProc.TissHsFim = True
    Tissconfig.TissProc.TissQtde = True
    Tissconfig.TissProc.TissVdeAcesso = True
    Tissconfig.TissProc.TissTecUtil = True
    Tissconfig.TissProc.TissReducAcres = True
    Tissconfig.TissProc.TissValor = True
    Tissconfig.TissProc.TissValorTotal = True
    Tissconfig.TissProfissional.TissProf = True
    Tissconfig.TissProfissional.TissSiglaConselho = True
    Tissconfig.TissProfissional.TissNumConselho = True
    Tissconfig.TissProfissional.TissUFConselho = True
    Tissconfig.TissProfissional.TissfCBOS = True
    Tissconfig.TissProfissional.TissPosicProf = True
    Tissconfig.TissOutDesp.TissIdentCodTab = True
    Tissconfig.TissOutDesp.TissIdentTipTab = True
    Tissconfig.TissOutDesp.TissIdentDesc = False
    Tissconfig.TissOutDesp.TissTipoDesp = True
    Tissconfig.TissOutDesp.TissDTRealizacao = True
    Tissconfig.TissOutDesp.TissHSInicial = False
    Tissconfig.TissOutDesp.TissHSFinal = False
    Tissconfig.TissOutDesp.TissReducAcres = False
    Tissconfig.TissOutDesp.TissQtde = True
    Tissconfig.TissOutDesp.TissVlrUnt = False
    Tissconfig.TissOutDesp.TissTotalGeral = False
    Tissconfig.TissNumGuiaPrest = True
    Tissconfig.TissNumGuiaOper = True
    Tissconfig.TissNumGuiaPrinc = True
    Tissconfig.TissDataAut = True
    Tissconfig.TissSenhaAut = True
    Tissconfig.TissSenhaValid = True
    Tissconfig.TissTipoSP = True
    Tissconfig.TissindicClinica = True
    Tissconfig.TisscaraterAtend = True
    Tissconfig.TissDataAtend = True
    Tissconfig.TissHoraAtend = True
    Tissconfig.TissTipoSaida = True
    Tissconfig.TissTipoAtend = True
    Tissconfig.TissCNPJCPF = True
    Tissconfig.TissRegANS = True
    Tissconfig.TissNumLote = True
    Tisscabecalho.TissVersaoXml = '1.0'
    Tisscabecalho.TissEncoding = 'ISO-8859-1'
    Tisscabecalho.TissMensagemTissXml = 
      'xmlns="http://www.w3.org/2001/XMLSchema" xmlns:ans="http://www.a' +
      'ns.gov.br/padroes/tiss/schemas"'
    Tisscabecalho.TissArquivo = 'tiss.xml'
    Tisscabecalho.TissVersaoTISS = '2.01.02'
    Tisscabecalho.TissTipoGeral = JuridicoGeral
    Tisscabecalho.TissZerosArq = 20
    TissContratado.TissTipoGeral = JuridicoGeral
    TissContratado.TissCEP = '454'
    TissPrestadorExec.TissTipoGeral = JuridicoGeral
    TissProfissional.TissPosicProf = 0
    TissTipoSP = FisicoSP_SADT
    TissDiagnostico.TissValor = 0
    TissDiagnostico.TissIndicAcid = 0
    TissTipoAtend = 0
    TissProc.TissEquipe.TissTipoMemb = JuridicoGeral
    TissProc.TissEquipe.TissProfiss.TissPosicProf = 0
    TissProc.TissProcs.TissTipTabela = 0
    TissOutDesp.TissDespesa.TissTipDespesa = 0
    TissValid.UsarValidacao = False
    TissValid.TissXSD = 'C:\home\guiasenviadas\validar\tissV2_01_02_completo.xsd'
    Left = 384
    Top = 16
  end
  object TissInt: TTissInternacao
    Versao.Versao = '0.9.13'
    TissContratado.TissTipoGeral = JuridicoGeral
    TissProfissional.TissPosicProf = 0
    TissPrestadorExec.TissTipoGeral = JuridicoGeral
    Tisscabecalho.TissVersaoXml = '1.0'
    Tisscabecalho.TissEncoding = 'ISO-8859-1'
    Tisscabecalho.TissMensagemTissXml = 
      'xmlns="http://www.w3.org/2001/XMLSchema" xmlns:ans="http://www.a' +
      'ns.gov.br/padroes/tiss/schemas"'
    Tisscabecalho.TissArquivo = 'Internacao'
    Tisscabecalho.TissVersaoTISS = '2.01.02'
    Tisscabecalho.TissTipoGeral = JuridicoGeral
    Tisscabecalho.TissZerosArq = 20
    TissTipoInternacao = 0
    TissDiagSaidInt.TissIndicAcid = 0
    TissProc.TissEquipe.TissTipoMemb = JuridicoGeral
    TissProc.TissEquipe.TissProfiss.TissPosicProf = 0
    TissProc.TissProcs.TissTipTabela = 0
    TissOutDesp.TissDespesa.TissTipDespesa = 0
    TissConfig.TissUsarBenefic = True
    TissConfig.TissUsarContratado = True
    TissConfig.TissUsarIdentExec = True
    TissConfig.TissUsarDiagnostico = True
    TissConfig.TissUsarProc = True
    TissConfig.TissUsarDiagSaidInt = True
    TissConfig.TissUsarProfissional = True
    TissConfig.TissUsarOPMS = True
    TissConfig.TissUsarOutDespesas = True
    TissConfig.TissCabecalho.TissTipoTrans = True
    TissConfig.TissCabecalho.TissDataRegistroTrans = True
    TissConfig.TissCabecalho.TissHoraRegistroTrans = True
    TissConfig.TissCabecalho.TissSequencialTrans = True
    TissConfig.TissCabecalho.TissCNPJCPF = True
    TissConfig.TissCabecalho.TissRegANS = True
    TissConfig.TissCabecalho.TissNumLote = True
    TissConfig.TissCabecalho.TissTipoGeral = True
    TissConfig.TissCabecalho.TissUsarNomeArqu = False
    TissConfig.TissCabecalho.TissArqNomeHash = True
    TissConfig.TissBenefic.TissNumCarteira = True
    TissConfig.TissBenefic.TissBenific = True
    TissConfig.TissBenefic.TissNomePlano = True
    TissConfig.TissBenefic.TissValidadeCart = True
    TissConfig.TissBenefic.TissNumCNS = True
    TissConfig.TissContratado.TissTipoGeral = True
    TissConfig.TissContratado.TissCNPJCPF = True
    TissConfig.TissContratado.TissNomeContradado = True
    TissConfig.TissContratado.TisstipoLogradouro = True
    TissConfig.TissContratado.TissLogradouro = True
    TissConfig.TissContratado.TissEndNum = True
    TissConfig.TissContratado.TissComplemento = True
    TissConfig.TissContratado.TisscodigoIBGE = True
    TissConfig.TissContratado.TissMunicipio = True
    TissConfig.TissContratado.TissUF = True
    TissConfig.TissContratado.TissCEP = True
    TissConfig.TissContratado.TissCNES = True
    TissConfig.TissContratado.TissUsarEnd = True
    TissConfig.TissIdentExec.TissTipoGeral = True
    TissConfig.TissIdentExec.TissCNPJCPF = True
    TissConfig.TissIdentExec.TissNomeContradado = True
    TissConfig.TissIdentExec.TisstipoLogradouro = True
    TissConfig.TissIdentExec.TissLogradouro = True
    TissConfig.TissIdentExec.TissEndNum = True
    TissConfig.TissIdentExec.TissComplemento = True
    TissConfig.TissIdentExec.TisscodigoIBGE = True
    TissConfig.TissIdentExec.TissMunicipio = True
    TissConfig.TissIdentExec.TissUF = True
    TissConfig.TissIdentExec.TissCEP = True
    TissConfig.TissIdentExec.TissCNES = True
    TissConfig.TissIdentExec.TissUsarEnd = True
    TissConfig.TissDiagnostico.TissCIDNomeTab = True
    TissConfig.TissDiagnostico.TissCIDCodDiag = True
    TissConfig.TissDiagnostico.TissCIDDescDiag = True
    TissConfig.TissDiagnostico.TissValor = True
    TissConfig.TissDiagnostico.TissUnTemp = True
    TissConfig.TissDiagnostico.TissTipDoenc = True
    TissConfig.TissDiagnostico.TissIndicAcid = True
    TissConfig.TissProc.TissUsarEquipe = True
    TissConfig.TissProc.TissEquipe.TissCodProf = True
    TissConfig.TissProc.TissEquipe.TissTipoMemb = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissProf = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissSiglaConselho = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissNumConselho = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissUFConselho = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissfCBOS = True
    TissConfig.TissProc.TissEquipe.TissProfiss.TissPosicProf = True
    TissConfig.TissProc.TissProcs.TissCodigo = True
    TissConfig.TissProc.TissProcs.TissTipTabela = True
    TissConfig.TissProc.TissProcs.TissDescricao = True
    TissConfig.TissProc.TissData = True
    TissConfig.TissProc.TissHsInicio = True
    TissConfig.TissProc.TissHsFim = True
    TissConfig.TissProc.TissQtde = True
    TissConfig.TissProc.TissVdeAcesso = True
    TissConfig.TissProc.TissTecUtil = True
    TissConfig.TissProc.TissReducAcres = True
    TissConfig.TissProc.TissValor = True
    TissConfig.TissProc.TissValorTotal = True
    TissConfig.TissProfissional.TissProf = True
    TissConfig.TissProfissional.TissSiglaConselho = True
    TissConfig.TissProfissional.TissNumConselho = True
    TissConfig.TissProfissional.TissUFConselho = True
    TissConfig.TissProfissional.TissfCBOS = True
    TissConfig.TissProfissional.TissPosicProf = True
    TissConfig.TissOutDesp.TissIdentCodTab = True
    TissConfig.TissOutDesp.TissIdentTipTab = True
    TissConfig.TissOutDesp.TissIdentDesc = False
    TissConfig.TissOutDesp.TissTipoDesp = True
    TissConfig.TissOutDesp.TissDTRealizacao = True
    TissConfig.TissOutDesp.TissHSInicial = False
    TissConfig.TissOutDesp.TissHSFinal = False
    TissConfig.TissOutDesp.TissReducAcres = False
    TissConfig.TissOutDesp.TissQtde = True
    TissConfig.TissOutDesp.TissVlrUnt = False
    TissConfig.TissOutDesp.TissTotalGeral = False
    TissConfig.TissNumGuiaPrest = True
    TissConfig.TissNumGuiaOper = True
    TissConfig.TissNumGuiaSolic = True
    TissConfig.TissDataAut = True
    TissConfig.TissSenhaAut = True
    TissConfig.TissSenhaValid = True
    TissConfig.TissTipoSP = True
    TissConfig.TissindicClinica = True
    TissConfig.TisscaraterInt = True
    TissConfig.TissDataInt = True
    TissConfig.TissHoraInt = True
    TissConfig.TissHoraSaidInt = True
    TissConfig.TissDataSaidInt = True
    TissConfig.TissTipoSaida = True
    TissConfig.TissTipoInt = True
    TissConfig.TissCNPJCPF = True
    TissConfig.TissRegANS = True
    TissConfig.TissTipoFat = True
    TissConfig.TissNumLote = True
    TissConfig.TissRegInt = True
    TissConfig.TissAcomod = True
    TissConfig.TissUsarDadAut = True
    TissConfig.TissDiagSaidaInt.TissIndicAcid = True
    TissConfig.TissDiagSaidaInt.TissDiagPrinc = True
    TissConfig.TissDiagSaidaInt.TissDiagSec = True
    TissConfig.TissDiagSaidaInt.TissMotSaidInt = True
    TissConfig.TissDiagSaidaInt.TissObito = True
    TissValid.UsarValidacao = False
    TissValid.TissXSD = 'C:\home\guiasenviadas\validar\tissV2_01_02_completo.xsd'
    Left = 344
    Top = 16
  end
end
